home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 1
/
Publication_01_19xx_-_de_Side_A.d64
/
publication note
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
94 lines
10 ifa=1then13
12 a=1:load"charset",8,1
13 poke53272,24:poke53281,15:poke53280,11:poke646,0:print"[147]":poke53269,0
14 print" [186]";:forg=1to36:print"[187]";:nextg:print"[186]"
15 forg=1to21:print" [188] [188]":nextg
16 print" [186]";:forg=1to36:print"[187]";:nextg:print"[186]":gosub45000
17 print"[196][146] [198][146] [194][146] [199][146] $[146] [195][146] [193][146] [197][146] $[146] ![146] ([146]"
18 print"[164][146] [166][146] [162][146] [167][146] %[146] [163][146] [161][146] [165][146] %[146] [166][146] #[146]"
19 print"[152][171][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][173]":gosub48000
20 print"[151]hallo !"
21 print"nun habt ihr sie endlich im lauf-"
22 print"werk[220]die erste [208][213][194][204][201][195][193][212][201][207][206]-issue."
23 print"in diesem kleinen file will ich"
24 print"nur noch schnell ein paar hinweise"
25 print"zur benutzung des mags geben."
26 print"[175][176] [193][195][200][212][213][206][199] !"
27 print"[177][178] dieses mag ist freeware[220]d.h. du"
28 print" kannst die gesamte disk kopier-"
29 print" en sooft du willst[220]allerdings"
30 print" nur ohne das directory zu ver-"
31 print" @ndern.":poke198,0
32 gosub47000:gosub50000:print"":poke53269,0
33 print"[201].[212][193][211][212][197][206][194][197][204][197][199][213][206][199] [219]"
34 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 print"die men]s im mag werden entweder"
36 print"durch pfeil ([166] z.b. hauptmen])"
37 print"oder per 'flimmerbalken' gesteu-"
38 print"ert."
39 print"die balken werden dabei mit den"
40 print"cursortasten ([161]hoch [162]runter) ge-"
41 print"steuert.einen men]punkt w@hlt man"
42 print"wie gehabt mit [210][197][212][213][210][206] an.":gosub46000
43 print"bitte taste dr]cken !":gosub47000:gosub50000
44 print"":poke53269,0
45 print"[201][201].[212][197][216][212][160][204][197][211][197][206] :"
46 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
47 print"nachdem man einen text angew@hlt"
48 print"hat[220]wird dieser eingeladen und die"
49 print"erste seite angezeigt."
50 print"nun gilt folgende tastenbelegung :"
51 print
52 print"f1 - springe zu seite x"
53 print"bl@ttern mit cursortasten ([166][165][161][162])"
54 print
55 print"mit [210][197][212][213][210][206] kommt man wieder ins"
56 print"hauptmen].der text bleibt solange"
57 print"im speicher[220]bis ein [193][206][196][197][210][197][210] text"
58 print"angew@hlt wird.bis dahin erfolgt"
59 print"der einsprung an alter textstelle.":poke198,0
61 gosub48000:gosub47000:gosub50000
62 print"":poke53269,0
63 print"soweit zur magbedienung ! nun noch"
64 print"einmal die dringende bitte dieses"
65 print"mag mit einsendungen und abos zu"
66 print"supporten."
67 print"see ya (hope so !),"
68 print"yours [218][197][201][212][199][197][201][211][212]/pc"
69 print"da crediz..."
70 print"[163][163][163][163][163][163][163][163][163][163][163][163]"
71 print"coding & charset [219] zeitgeist"
72 print"sprites : hwk":gosub46000
73 poke198,0:gosub47000:poke53269,0:sys64767
45000 sys57812("zahlen.spr*"),8,1:poke780,0:sys65493:poke53285,12:poke53269,1
45001 poke53271,1:poke53277,1
45002 poke53248,150:poke53249,120:poke53286,11:poke53287,1
45003 forg1=1to10:poke2040,223+g1:forg2=1to400:nextg2,g1
45004 poke53271,0:poke53277,0:poke53269,0:return
46000 sys57812("auto.spr*"),8,1:poke780,0:sys65493
46001 poke2040,224:poke2041,225:poke53269,3:poke53249,210:poke53251,210
46002 poke53288,1:poke53287,1:poke53286,11:poke53285,12:poke53269,3:poke53276,3
46004 poke53264,3:forg=15to5step-5:poke53248,g:poke53250,g+23:forg1=1to51
46005 nextg1,g:poke53264,0:forg=232to45step-5:poke53248,g:poke53250,g+23
46006 forg1=1to50:nextg1,g
46999 return
47000 geta$:ifa$=""then47000
47001 return
48000 sys57812("uhr.spr*"),8,1:poke780,0:sys65493:q=0
48001 poke2040,224:poke2041,224:poke53285,12:poke53286,11:poke53287,1
48002 poke53269,3:poke53248,70:poke53249,70:poke53276,3:poke53251,70
48003 poke53264,2:poke53250,12:poke53288,1
48004 forg=1to50:nextg:poke2040,225:poke2041,225:forg=1to50:nextg:poke2040,226
48005 poke2041,226:forg=1to50:nextg:poke2040,227:poke2040,227:forg=1to50:nextg
48006 poke2041,228:poke2040,228:forg=1to50:nextg:poke2040,229:poke2041,229
48007 forg=1to50:nextg:poke2040,230:poke2041,230:forg=1to50:nextg:poke2040,231
48008 poke2041,231:forg=1to50:nextg:poke2040,232:poke2041,232
48009 forg=1to50:nextg:poke2040,224:poke2041,224
48010 q=q+1:ifq=5thenreturn
48011 goto48004
48999 return
50000 print""
50001 forg=1to17
50002 print" "
50003 nextg:return